www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Update/UpInstall.asp

    <!--#include file="../../Conn.asp" -->
<!--#include file="../YWNT_TMS_Inc/YWNT_TMS_Function.asp" -->
<%Call CheckLogin("UpDate")

Const datapathcj = "../Collect/CollectDB.mdb"		'Access数据库的文件名，请使用相对于网站根目录的的绝对路径
Const YWNT_TMS_CJRS = "Adodb.RecordSet"
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(datapathcj)
Set connx = server.CreateObject("ADODB.Connection")
connx.open connstr

addsql="Create Table YWNT_LM_Region (ID autoincrement(1,1) primary key,LMregion varchar (255) null,regionID int default 0)"
conn.execute(addsql)
 
addsql="Create Table YWNT_LM_Type (ID autoincrement(1,1) primary key,LMType varchar (255) null,TypeID int default 0)"
conn.execute(addsql)

sql="insert into YWNT_LM_Type(LMType,TypeID) values('动作片',27)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('喜剧片',28)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('爱情片',29)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('科幻片',30)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('恐怖片',31)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('战争片',32)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('伦理片',33)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('剧场',22)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('动漫',23)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('综艺',24)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('体育',25)"
conn.execute(sql)
sql="insert into YWNT_LM_Type(LMType,TypeID) values('教育',26)"
conn.execute(sql)

sql="insert into YWNT_LM_Region(LMregion,regionID) values('华语地区',1)"
conn.execute(sql)
sql="insert into YWNT_LM_Region(LMregion,regionID) values('欧美地区',2)"
conn.execute(sql)
sql="insert into YWNT_LM_Region(LMregion,regionID) values('日韩地区',3)"
conn.execute(sql)
sql="insert into YWNT_LM_Region(LMregion,regionID) values('其他地区',4)"
conn.execute(sql)

addsql="alter table YWNT_TMS_MovieUrl alter column MovieUrl text null"
conn.execute(addsql)
addsql="alter table YWNT_TMS_P2PUrl alter column P2PUrl text null"
conn.execute(addsql)

addsql="alter table url alter column url text null"
connx.execute(addsql)

UpIncContent="<%Const LocalVersion=""6.2.2"""&vbCrLf&"Const UpDateUrl=""http://www.ywnt.net/Update/Free/""%"
	UpIncContent=UpIncContent&">"
	call FSOSaveFile(GetConfig("WebiInstallDir")&GetConfig("AdminDir")&"YWNT_TMS_Inc/UpDateInc.asp",UpIncContent)%>